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**F ILE**1D**BASMAGTAP 


BBBBBBBB AAAAAA SSSSSSSS MM MM AAAAAA GGGGGGGG TTTTTITITIT AAAAAA PPPPPPPP 
BBBBBBBB AAAAAA SSSSSSSS MM MM AAAAAA GGGGGGGG TTTTTTTTTIT AAAAAA PPPPPPPP 
BB AA AA SS MMMM MMMM AA AA GG TT AA AA PP PP 
BB AA AA SS MMMM MMMM AA AA GG TT AA AA PP PP 
BB BB AA AA SS MM AA AA GG TT AA AA PP PP 
BB BB AA SS MM MM MM AA AA GG TT AA AA PP PP 
BBBBBBBB AA AR SSSSSS MM MM AA AA GG TT AA AA PPPPPPPP 
BBB: AA SSSSSS MM MM AA AA GG TT AA AA PPPPPPPP 
BB BB AAAAAAAAAA SS MM MM AAAAAAAAAA GG GGGGGG TT AAAAAAAAAA PP 
BB BB AAAAAAAA SS MM MM AAAAAAAAAA GG GGGGGG TT AAAAAAAAAA PP 
BB BB AA SS MM MM AA AA GG TT AA AA PP eves 
BB AA AA SS MM MM AA AA GG GG TT AA AA PP eeee 
BBBBBBBB AA AA SSSSSSSS MM MM AA Aa GGGGGG TT AA AA PP eeee 
BBBBBBEB AA AA SSSSSSSS MM MM AA AA GGGGGG TT Aa AA PP eoee 
LL III] SSSSSSSS 
LL HII] SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLiL III] SSSSSSSS 
LLLLLLLLLL III SSSSSSSS 


ccc 


| 


BASSMAGTAPE 


SESS SWI oponononononononot. 2 2 2 
DONA VE WN OO OONOUES WN (OO ODNA UEWD SO OONOUSWWR "OO ONOUSwWwr 


se 


aoe 


CoOoooooooooceo 
33 


004 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1 
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MODULE BASSMAGTAPE 


Be :gei1z YAN 


T = '1=003' File: BASMAGTAP.B32 


BEGIN 


ESE SESSSIOCLI CSIC ISTE TTT TTT Tere eT iTS r Tir TT Tei iret iii ititit ty 


ME SSSESILSLILI SESE SESE EET ET TT ST TCC P TCT C Tice Pec iti cree iti t atic ititiie 
' 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORAT On NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


'e¢ 
FACILITY: BASIC-PLUS-2 Miscellaneous 1/0 


ABSTRACT: 


This module contains the BASIC MAGTAPE function, 
Which manipulates non file-structured mag tape files. 


ENVIRONMENT: VAX=-11 User Mode 
AUTHOR: John Sauter, CREATION DATE: 20-APR-1979 
MODIFIED BY: 


1 
1 
1 


-001 - Original. 
= 6 - Add a call to BASS$CB_POP. JBS 10-JUL-1979 
-003 - Set up ISBSA_USER_FP.~ JBS 25-JUL-1979 


!<BLF /PAGE> 


1 Blis 
14 BASRTL.SR 


$ 
J8 


® 
® 
® 
® 
® 
® 
® 
* 
te 
* 
® 
® 
® 
® 
® 
® 
® 
® 
® 
® 
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SS SSS 
Beee Se Oe Se Se Se Seas te Se aese Se tee 


-——_--—- 


BASSMAGTAPE 
1-003 


SVS 
WR" ODOONOUSWN— 


AACN 


64 


— — os 
SARALLSS ELE 


o 
~ 


Be Be Be Be Se Ss Se Se Ge Se Se Se Be Ge Se Be Ss Be Ge Ge Be Ge Ge Se Se SF Se SF Se Be Se Se Se Be Se Se Be Se oe FFs Se Se Se Sees Se Se Sete ees 
co 
Ww 


ie 


PSECTS: 


6:17 AX-11 B 
55:14 BASRTLeS Rela BASMAGTAP. 832;1 (2) 


Define Linkages 


Manipulate a mag tape file 


Get LUB definitions 

Get ISB definitions 

1/0 error codes 

Macros for defining psects 
System symbols 


Rewind and go off-line 
Write EOF 
Rewind 


' Skip record 
: Backspace record 


Set density and parity 


' Tape status 


File characteristics 
Rewind on CL 


1§ 3 19 
os e = 
14-Sep-19 
050 1! 
$08) 1 § SWITCHES: 
Be 
0094 SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
0056 73 
0057 1 ! LINKAGES: 
0058 1 
0059 1 
0060 1 REQUIRE "RTLIN:OTSLNK’; ! 
0489 1 
0490 1! 
0491 1 ! TABLE OF CONTENTS: 
049¢ 13 
0493 1 
0494 1 FORWARD ROUTINE 
0495 1 BASSMAGTAPE; 
0496 1 
0497 1! 
0498 1 | INCLUDE FILES: 
0499 1 
0500 1 
0501 REQUIRE ‘RTLML:OTSLUB’; 
0642 } REQUIRE "RTLML:OTS1SB" ; 
0811 ] REQUIRE "RTLIN:BASIOERR® ; 
0865 1 REQUIRE 'RTLIN:RTLPSECT’; ! 
0960 1 
0961 1 LIBRARY "RTLSTARLE’; 
0962 1 
0963 1! 
0964 1 | MACROS: 
0965 1 | 
0966 1 | NONE 
0967 1} 
0968 1 ' EQUATED SYMBOLS: 
0969 
0970 
0971 1 LITERAL 
0972 1 BASSK_REWOFL = 1, 
0973 (1 BASSK~WEOF = 2, i 
0974 1 BASSK-REWIND = 3 i 
0975 1 BASSK-SKIPREC = 4, 
0976 1 BASSK~BACKREC = 5, 
0977 1 BASSK~SETDENPAR = 6, i 
0978 1 BASSK-STATUS = 7, 
0979 1 BASSKFILECHAR = 8, i 
0980 BASSKREWCLOSE = 9; i 
1 
1 
1 
1 
1 


DECLARE _PSECTS (BAS); 


Declare psects for BASS facility 


ss-32 V4.0-74 Page 2 


SSS SSS SSS SSS sss se 
Se Be Oe Oe Oe Be Be Se Se Be Se Se Se Se Se Se Se Se He Se Se Se Se Se Se Se Geile Se Se Se ee Se Se SF Se See ee Se SH Se Se Se ee Se Se Se SS te Se Se asee Beas 


ee = . - 


dD 13 

ASSMAGTAPE 16-Sep-1984 00:42:13 AX-11 Bliss-32 V4.0-74 Page 3 E 
#808 1e-8ep-198e 84:88:14 YeASRTL SRESBASMAGTAP.BS2;1 “wa 1 
; 108 987 1 ! OWN STORAGE: 
; 109 9 5 a 
: 110 9 1! NONE 
ae bb 990 1! 
: 11g 991 1 ! EXTERNAL REFERENCES: 
; 3 992 1! 
: (114 993 1 
3 399 994 1 EXTERNAL ROUTINE 
3 118 995 1 BASSS$CB_PUSH : JSB_CB_PUSH NOVALUE, ! Load register CCB 
3; 11 0396 1 BASS$CB_POP : JS8 CB_POP NOVALUE, ' Done with register CCB 
; (118 0997 1 BASSSSTOP : NOVALOE, ! Signal fatal error 
3 133 Bee ; BASS$STOP_10 : NOVALUE; ! Signal fatal I/0 error 
3 121 1000 1 !+ 
$ \ ¢ 190) \ } The following are the error codes used in this module. 
: 124 1003 1 
3 le 1004 1 EXTERNAL LITERAL 
3s ie 1005 1 BAS$K_IO_CHANOT : UNSIGNED (8), ! Channel not open. 
3 44 Ise ; BAS$K_ILCMAGUSA : UNSIGNED (8); ! ILlegal MAGTAPE() Usage 


BASSMAGTAPE 
1-503 


WRN $9 OONO VSWN O DONAUE WN" OVONOUESWN—O 
FS EWAWAWAAANAWAIAIRPIPINIPININPININIDY 2 SP OOOO OO 


ed ed ee a ea cee ee ad ae ee a et ed ee ce ee ce ed ed ed ee ec ce ce ee ee ceed en a ce cc a ce ee ee ee a a ce ed ed ee ed 
Ser escssssssssssssssssssssssseeese3s 
ANEW 0 OONAUS WN $0 OONAU EWN 9 OONOUE WN SC OONOUES WhO 0@ 


ee ee ee ee ee ed ee a ee ee ee a ee ee ee ee eg ct a et a ce cl cl ee el ei eh ee ee ei el a a el el el a el ec le cl el el 


04 
04 
7 04 
8 04 
9 04 
0 04 
1 04 
g 05 
05 
4 05 
5 05 
6 05 
7 05 
8 05 
9 057 
0 058 
1 059 
§ 060 
061 
4 806 
5 06 
064 


ee ee ee ee ee ee ea ed od od od = wd. 28 od 8 od od 9 2 td 


13 
1b-se -1984 00:42:13 AxX-11 Blis 
12-8 08- 1 ope 90738313 EBASRTL SRe 
GLOBAL ROUTINE BASSMAGTAPE ( ' Do a MAGTAPE function 
FUNCTION, ' Function code, 1 to 9 
P ° ! Additional parameter 
CHAN ' Channel 


)z 
'e¢ 


i FUNCTIONAL DESCRIPTION: 


Manipulate a non-file structured mag tape. Nine functions 
are defined, coded as follows: 


CODE MEANING 


1 Rewind and go offline 

2 Write and end-of-file (EOF) mark. 

3 Rewind 

4 Skip record. The additional argument is the number 
of records to skip. The value returned is the number 
of records not skipped. 

5 Backspace record. The additional argument is the 


number of records to backspace. The value returned 
is the number of records not backspaced. 


6 Set density and parity. The additional argument encodes 
the desired density and parity, see below. 

7 Return magtape status. The value returned is the 
status. 

8 Return file characteristics. The value returned is 


the file characteristics. 


9 Rewind on close. When the next CLOSE is done on this 
channel, the tape will be rewound. 


FORMAL PARAMETERS: 
Ket i lta The function to perform, see above. 


ARAM. rl.v An additional parameter to some functions, 
see above. 
CHAN. rl.v The channel to do this function to. 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 


ry 


F 13 
16-Sep-1984 00:42:13 AX=-11 Bliss-32 V4.0-74 
1073-1 38e 1:88ilz BASRTL SRC IBASMAGTAP B82; 1 


| 
T 
| BASSHAG APE 


co 
~ 


COMPLETION CODES: 


Depends on gn function, see above. Where the result is not 
specified, is returned. 


LESSEE 


WN OVONOUS WN “OVOONOUSWN"OVDONOu 


signals if an error is encountered. 
BASSS$CB_PUSH will signe) if the channel number is invalid. 


We signal BASSK_IO_CHANOT if the channel is not open. 


' 
i 
i 
i 
} SIDE EFFECTS: 
i 
i 
i 
.] 
— 
BEGIN 
BUILTIN 
FP; 
GLOBAL REGISTER 
CCB = K_CCB_REG : REF BLOCK C, BYTE]; 
LOCAL 
RESULT; 


FMP = .FP; 


pope jefe lelelolololololololololo! 


CODOOOON NANNING 


'¢ 

! Note: this function is provided as a transition aid from BASIC-PLUS. 
! It is not intended to be used for new development in BASIC-PLUS=-2. 

: Therefore, it has been organized as a separate, self-contained 

! module, which can be omitted in situations where BASIC-PLUS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
| 
; compatability is not a goal. 


COOOMMCc 


i¢ 
' Load register CCB from the channel specified. It had better be 
open. hannel 0 is not permitted. 

IF (.CHAN EQL 0) THEN BASS$SSSTOP (BASSK_ILLMAGUSA) ; 


BASS$CB_PUSH (.CHAN, LUBSK_LUN_MIN); 
CCB CISBSA_USER_FP] = .FMP~CSFSL_SAVE_FP); 


IF ( NOT .CCB CLUBSV_OPENED]) THEN BAS$S$STOP_IO (BAS$K_IO_CHANOT); 


SSSRNAOR UN LS OHNE ARUN ASSRIF AP AVL OSB RAR Oo woe 


ed 
wr 


'¢ 

: If no result is specified below, return zero. 
"RESULT = 0; 

: Dispatch on the function code. 


w 


=SSe 


CASE FUNCTION FROM BASSK_REWOFL TO BASSK RECLOSE OF 


ec ec ec ec ee ee ee ee ce ee ec ee ee ee DD ee ee ee ee ee eB ee ed ed ed ed 


ed ed dd ed ed ed ed md = =I QO OOO QOOOOOCOOOOO 


PROPIPIPIPIPSPINININPININIPINININPINIVNINININININININININININININININININININININININI|A 4 9 SO 


ee OS SSS SS SSCS SF 


=—OOONOA MEW O OBNOUEWN Oo OOnN 


se 
wm 


[BASSK_REWOFL) : 


—rnm | 


Fe rae ee nh cea ee 13 
‘basSnactare y$-Sep-1964 90:42:15 yaNeT BLisg=32 v4.g-742, Page 


| 
ls 246 


4 
45 : This function is not implemented. In VMS, unloading a mag tape 
4 ! is the rospene toil icy of the command Language interpreter, using 
ref the DISMOUNT command. 
49 ; BASSSSTOP_I0 (BASSK_ILLMAGUSA); 


. CBASSK_WEOF) : 
i This function is not implemented. To get its effect, CLOSE and 
: then OPEN the channel. Be sure to specify that no rewinding is 
to be done when you OPEN it. 
d BASSS$STOP_IO (BASSK_ILLMAGUSA); 

CBASSK_REWIND) : 
i This function repositions the file to its first record. It can 
! be used on any file (except unit record and terminal), not just 
mag tape. 
BEGIN 


LOCAL 
REWIND_STATUS; 


REWIND_STATUS = SREWIND (RAB = .CCB); 
IF ( NOT .REWIND_STATUS) 
BEGIN 
WHILE {-¢¢B CRAB$L_STS] EQL RMS$_RSA) DO 
Setuins thas 2° Rtas 
END; 
IF (.CCB CRABSL_STS] NEQ RMS$_BOF) THEN BASSS$STOP_IO (BAS$K_IOERR_REC); 
END; 
END; 
a CBASSK_SKIPREC) : 


i This function is not implemented. To get its effect, issue 
GETs and ignore the data transfered. 


BASSS$STOP_I0 (BASSK_ILLMAGUSA); 
- [BASSK_BACKREC) : 
i This function is not implemented. To get its effect, issue the Bes eee 


! REWIND function and then skip forward until reaching the desired 
} record. 


PoPoNofoNononononofonofonofonys 


Mrorn 
See 09.09 09 09 09 09 SIN NN INNIS NNSA AAA AAAAA III 
SSELESEASSSS VEAP EES SSNS ANF OOo wo Mh oo oS Ole wee 
ee ee ee me a ee ee ee ee ee ee ee ee ed ed ed 


ee ec ec ee ee ec el ce ce ee ce ee el ee ee a el ee ee ed ee 


SNS NNSA AA AAA AAA AMM PEPE LEE 


BAIPAE UN OOO NAME WN ODO NOU EWU O00 NOU EWN ODO SOUP dn OO Or Or one 


PRIPIPIPIMIPINIMINININYPINININIWIWN SE & HE SNE & PWS 


ne 


—— 
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BASSSSTOP_10 (BASSK_ILLMAGUSA); 
ie CBASSK_SETDENPAR] : 
i This function is a implemented. The responsibility for setting 
1 


Oooo 
wn 


! density and parity in VMS oe longs to the command language, which 
: provides the MOUNT command for this purpose. 


BASSSSTOP_I10 (BASSK_ILLMAGUSA) ; 
. CBASSK_STATUS] : 
:_This function is not implemented, since the SET function is not. 
BASSS$STOP_I0 (BASSK_ILLMAGUSA) ; 
CBASSK_FILECHAR) : 


i This function is not implemented, since the FSP$ function effectively 
! replaces it, and, in the absence of most of the other functions 
it is not very useful. 


BASSS$STOP_I10 (BASS$K_ILLMAGUSA) ; 


. CBASSK_REWCLOSE) : 


This function is not implemented. To get its effect, after 
CLOSEing the channel, OPEN it gae%s for input, do a REWIND, and CLOSE 
it. Better, make use of the OP 


i] 
i 
i 
N options to get this effect. 
tes BASSS$STOP_IO (BASSK_ILLMAGUSA) ; 


LA 
ERS Sere corre band nduesedibn 
UEWN "OO OONOUSWN “OVO ONOUESWN "OOM w 


+ 
We are done with register CCB 


WA.AAIANAAAA AAW ANN 


ee ee ee ee ee ee eee ee ee ee ee 
NR tO HH | SH DOOCOCOVDOOCOOCOOO0OO0O00 000 Wc cococococecNce~y 


SOONG VE WN $9 OONAUE WN  O ODNOAOUE WN (OOONAUES WN O0 


HH BASSSCB_POP (); 
44 : We have stored in RESULT any non-zero value to be returned. 
41 RETURN (.RESULT); 
2 END; ! of routine BASSMAGTAPE 


ITLE BASSMAGTAPE 
D \1=-003\ 
XTRN BAS$$CB_PUSH, BAS$$CB_POP 
XTRN BASSSSTUP, BASSSSTOP_TO 
10_CHANOT 
TRN I GUSA 
-EXTRN SYSSREWIND, SYSSWAIT 


-PSECT _BASSCODE,NOWRT, SHR, PIC,2 


60000 -ENTRY BASSMAGTAPE, Save R2,R35,R4,R5,R11 ; 1008 


08 
02 MOVAB SYSSREWIND, R : 


3 
55 000000006 00 9 


mo 


13 
BASSMAGTAPE 16-Sep-1984 00:42:13 AX-11 Bliss-32 V4.0-74 Page 8 
7-803 eneee= ike $Fi88iz | HANSA Ose SaaSmactar o$2-1 9 03) 
54 000000006 00 9 909 MOVAB BASSSSTOP_IO, R4 : 
3 DD 19 MOVL FP, FMP + 1090 
Oc AC D 91 TSTL CHAN + 1103 
B 1 18 NEG § : 
43 006 8F 9A 0001 MOVZBL #BASSK_ILLMAGUSA, -(SP) : 
000000006 0 } FB i - CALLS a, BASS$SSTOP ens 
52 0c AC 00 6 MOVL AN : 
000000006 06 16 00029 JSB BAS$$CB_PUSH : 
FF4C cB OC A3 00 0002F MOVL 12(FMP)> -180(CCB) t 1106 
FC AB f 0035 BLBS  =-4(CCB) + 1108, 
006 8F 9A 900 9 MOVZBL #BAS$K_[0 CHANOT, -(SP) : 
64 1 FB D CALLS #1, BAS$$STOP_IO : | 
2 D4 00040 28: CLRL RESULT t 1113 
08 01 04 AC CF 9004¢ CASEL FUNCTION, #1, #8 + 1118) 
0045 0014 0045 004 0047 3$: <WORD 7$-3$,- : | 
0045 0045 0045 0045 0004F 7$-3$,- : 
0045 00057 4$-38,- : 
7$-3$,- : 
7$-3$,- 3 
7$-3$,- : 
7$-3$ : 
31 11 00059 BRB 7$ : 113 
5B 0D 00058 4$: PUSHL CCB + 114 
+} 01 FB 0005p CALLS #1, SYSSREWIND F 
30 50 €8 00060 BLBS § REWIND STATUS, 9$ + 115 
000182DA_ ss BF 08 AB Di 90063 5$ CMPL 8(CCB); #99034 : 115 
5B DD 0006D PUSHL (CCB : 1156) 
000000006 00 gi FB 0006F CALLS ai. SYSSWAIT : aeen! 
65 01 FB 00078 CALLS #1, SYSSREWIND : | 
E6 11 00078 BRB 5$ > 1154) 
00018198  8F 08 AB p| 90070 6$ CMPL §(cce), #98712 : 1160) 
7E 01 CE 00087 MNEGL #1, (SP) ; 
04 11 OOO8A BRB $ : 1171) 
7E 006 8F 9A 0008C 7S: MOVZBL #BASSK_ILLMAGUSA, -(SP) : 1209. 
64 01 FB 00090 8$: CALLS #1, BASS$STOP_IO ; | 
000000006 00 16 00093 9$: JSB BASS$$CB_PO ; 1313 | 
0 2 D0 00099 MOVL RESULT, ~RO : 1219 
04 0009C RET : 1220 
; Routine Size: 157 bytes, Routine Base: _BASSCODE + 0000 
: 3 1221 1 
: 344 1 2 1 END ! of module BASSMAGTAPE 
: 345 1225 1 
: 346 1224 0 ELUDOM 


| 13 13 


_ BASSMAGTAPE -Sep-1984 00:42:13  VAKX-11 Bliss-32 v4. Page 9 
1-003 1e-ee eh o8e O68: i2 CBASRTL. SREIBASMAGTAP 68251 9 63) 
: PSECT SUMMARY 
; Name Bytes Attributes 
; BASSCODE 157 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


ecoeeee= Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$0UA28: CSYSLIBISTARLET.L32;1 9776 9 0 581 00:01.2 


COMMAND QUALIFIERS 
BLISS/CHECK= (FIELD. INITIAL ,OPTIMIZE) /NOTRACE/LIS=L1S8:BASMAGTAP/0BJ=0BJ$ :BASMAGTAP MSRC$:BASMAGTAP/UPDATE=(ENHS$ : BASMAGTAP 


; Size: 157 code + 0 data bytes 
Run Time: 00:10.4 
Elapsed Time: 00:22.6 


ry Used: 144 pages 
on ation Complete 


r 
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